home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / GUICtrlCreateObj.au3 < prev    next >
Text File  |  2007-09-08  |  1KB  |  43 lines
  1. #include <GUIConstants.au3>
  2. ; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
  3. ;
  4. ; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
  5.  
  6. $oIE = ObjCreate("Shell.Explorer.2")
  7.  
  8. ; Create a simple GUI for our output
  9. GUICreate ( "Embedded Web control Test", 640, 580,(@DesktopWidth-640)/2, (@DesktopHeight-580)/2, BitOr($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
  10. $GUIActiveX            = GUICtrlCreateObj        ( $oIE,         10, 40 , 600 , 360 )
  11. $GUI_Button_Back    = GuiCtrlCreateButton    ("Back",     10, 420, 100,  30)
  12. $GUI_Button_Forward    = GuiCtrlCreateButton    ("Forward",    120, 420, 100,  30)
  13. $GUI_Button_Home    = GuiCtrlCreateButton    ("Home",    230, 420, 100,  30)
  14. $GUI_Button_Stop    = GuiCtrlCreateButton    ("Stop",    330, 420, 100,  30)
  15.  
  16. GUISetState ()       ;Show GUI
  17.  
  18. $oIE.navigate("http://www.autoitscript.com")
  19.  
  20. ; Waiting for user to close the window
  21. While 1
  22.     $msg = GUIGetMsg()
  23.     
  24.     Select
  25.         Case $msg = $GUI_EVENT_CLOSE
  26.             ExitLoop
  27.         Case $msg = $GUI_Button_Home
  28.             $oIE.navigate("http://www.autoitscript.com")
  29.         Case $msg = $GUI_Button_Back
  30.             $oIE.GoBack
  31.         Case $msg = $GUI_Button_Forward
  32.             $oIE.GoForward
  33.         Case $msg = $GUI_Button_Stop
  34.             $oIE.Stop
  35.     EndSelect
  36.     
  37. Wend
  38.  
  39. GUIDelete ()
  40.  
  41. Exit
  42.  
  43.